home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -screenplay- / shareware / abuse / lisp / startup.lsp < prev    next >
Lisp/Scheme  |  1998-07-04  |  2KB  |  67 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4. (setq keep_backup T)                  ;; determines if Save
  5.  
  6. (setq load_warn nil)
  7.  
  8. (if (local_load "addon/deathmat/username.lsp")  
  9.   (set_login username))
  10.  
  11. (if (local_load "addon/deathmat/gamename.lsp")  
  12.   (set_game_name gamename)
  13.   (set_game_name "Joe's Game"))
  14.  
  15. (load "demo.lsp")
  16.  
  17. (local_load "gamma.lsp")              ;; load gamma correction values if they have been saved
  18.  
  19. (if (not (load "hardness.lsp"))       ;; load hardness, if no file set to hard
  20.     (setf difficulty        'hard))
  21. (setq load_warn T)
  22.  
  23. ; *********** Defaults **************************
  24.  
  25. (setf sfx_directory     "sfx/")
  26.  
  27. ;(load_big_font     "art/letters.spe" "letters")
  28. (load_big_font     "art/fonts.spe" "screen11")
  29. (load_small_font   "art/fonts.spe" "small_font")
  30. (load_console_font "art/fonts.spe" "fnt5x7")
  31. (load_color_filter "art/back/backgrnd.spe")
  32. (load_palette      "art/back/backgrnd.spe")
  33. (setq normal_tint (def_tint "art/back/backgrnd.spe"))
  34.  
  35.  
  36. (load_tiles "art/fore/foregrnd.spe"  ;; 0
  37.         "art/fore/techno.spe"    ;; 1-99
  38.         "art/fore/techno2.spe"   ;; 100-167
  39.         "art/fore/techno3.spe"   ;; 200-236
  40.         "art/fore/techno4.spe"   ;; 300-460
  41.         "art/fore/cave.spe"      ;; 500-634
  42.  
  43.         "art/back/backgrnd.spe"  ;; 0
  44.         "art/back/intro.spe"     ;; 5-37
  45.         "art/back/city.spe"      ;; 40-70
  46.         "art/back/cave.spe"      ;; 84-103
  47.         "art/back/tech.spe"      ;; 110-139
  48.         )
  49.  
  50. (setq load_warn nil)
  51. (load "register/tiles.lsp")       ;; load up registered artwork if it's there
  52. (setq load_warn T)
  53.  
  54. (setf title_screen      '("art/title.spe" . "title_screen"))
  55. (setf logo              '("art/title.spe" . "cdc_logo"))
  56.  
  57. (setf demos        '("levels/demo1.dat" "levels/demo3.dat" "levels/demo4.dat" "levels/demo5.dat"))
  58. (setq help_screens '("art/help.spe" "sell1"))
  59.  
  60. (if (not (get_option "-f"))
  61.     (progn
  62.       (if skip_trainer_level
  63.       (set_first_level "levels/level01.spe")
  64.     (set_first_level "levels/level00.spe"))))
  65.  
  66.  
  67.